home *** CD-ROM | disk | FTP | other *** search
/ TOS Silver 2000 / TOS Silver 2000.iso / programm / MM2_DEV / S / MYUTIL / FREEMEM.M < prev    next >
Encoding:
Text File  |  1994-04-05  |  390 b   |  21 lines
  1. MODULE FreeMem;
  2.  
  3. IMPORT GEMDOSIO; (*$EMOS*)
  4. FROM InOut IMPORT WriteLn, WriteCard, WriteString, Read;
  5.  
  6. FROM Storage IMPORT MemAvail, AllAvail;
  7.  
  8. VAR ch:CHAR;
  9.  
  10. BEGIN
  11.   WriteLn;
  12.   WriteLn;
  13.   WriteString ('Largest free space: ');
  14.   WriteCard (MemAvail (),0);
  15.   WriteLn;
  16.   WriteString ('Full free space   : ');
  17.   WriteCard (AllAvail (),0);
  18.   WriteLn;
  19.   Read (ch)
  20. END FreeMem.
  21.